home *** CD-ROM | disk | FTP | other *** search
/ QuickTime 2.0 Developer Kit / QuickTime 2.0 Developer Kit.iso / mac / MAC / Programming Stuff / Interfaces / PInterfaces / TSMTE.p < prev    next >
Encoding:
Text File  |  1994-11-11  |  3.7 KB  |  149 lines  |  [TEXT/MPS ]
  1. {
  2.      File:        TSMTE.p
  3.  
  4.      Copyright:    © 1984-1994 by Apple Computer, Inc.
  5.                  All rights reserved.
  6.  
  7.      Version:    Universal Interfaces 2.0a3  ETO #16, MPW prerelease.  Friday, November 11, 1994. 
  8.  
  9.      Bugs?:        If you find a problem with this file, send the file and version
  10.                  information (from above) and the problem description to:
  11.  
  12.                      Internet:    apple.bugs@applelink.apple.com
  13.                      AppleLink:    APPLE.BUGS
  14.  
  15. }
  16.  
  17. {$IFC UNDEFINED UsingIncludes}
  18. {$SETC UsingIncludes := 0}
  19. {$ENDC}
  20.  
  21. {$IFC NOT UsingIncludes}
  22.  UNIT TSMTE;
  23.  INTERFACE
  24. {$ENDC}
  25.  
  26. {$IFC UNDEFINED __TSMTE__}
  27. {$SETC __TSMTE__ := 1}
  28.  
  29. {$I+}
  30. {$SETC TSMTEIncludes := UsingIncludes}
  31. {$SETC UsingIncludes := 1}
  32.  
  33.  
  34. {$IFC UNDEFINED __TEXTEDIT__}
  35. {$I TextEdit.p}
  36. {$ENDC}
  37. {    Quickdraw.p                                                    }
  38. {        Types.p                                                    }
  39. {            ConditionalMacros.p                                    }
  40. {        MixedMode.p                                                }
  41. {        QuickdrawText.p                                            }
  42.  
  43. {$IFC UNDEFINED __DIALOGS__}
  44. {$I Dialogs.p}
  45. {$ENDC}
  46. {    Errors.p                                                    }
  47. {    Memory.p                                                    }
  48. {    Windows.p                                                    }
  49. {        Events.p                                                }
  50. {            OSUtils.p                                            }
  51. {        Controls.p                                                }
  52. {            Menus.p                                                }
  53.  
  54. {$IFC UNDEFINED __APPLEEVENTS__}
  55. {$I AppleEvents.p}
  56. {$ENDC}
  57. {    EPPC.p                                                        }
  58. {        PPCToolbox.p                                            }
  59. {            AppleTalk.p                                            }
  60. {        Processes.p                                                }
  61. {            Files.p                                                }
  62. {    Notification.p                                                }
  63.  
  64. {$IFC UNDEFINED __TEXTSERVICES__}
  65. {$I TextServices.p}
  66. {$ENDC}
  67. {    Components.p                                                }
  68.  
  69. {$PUSH}
  70. {$ALIGN MAC68K}
  71. {$LibExport+}
  72.  
  73. CONST
  74.     kTSMTESignature                = 'tmTE';
  75.     kTSMTEInterfaceType            = kTSMTESignature;
  76.     kTSMTEDialog                = 'tmDI';
  77.  
  78. { Gestalt}
  79.     gestaltTSMTEAttr            = kTSMTESignature;
  80.     gestaltTSMTEPresent            = 0;
  81.     gestaltTSMTE                = 0;                            { gestaltTSMTE is old name for gestaltTSMTEPresent }
  82.  
  83.     gestaltTSMTEVersion            = 'tmTV';
  84.     gestaltTSMTE1                = $100;
  85.  
  86. { update flag for TSMTERec}
  87.     kTSMTEAutoScroll            = 1;
  88.  
  89. { callback procedure definitions}
  90. TYPE
  91.     TSMTEPreUpdateProcPtr = ProcPtr;  { PROCEDURE TSMTEPreUpdate(textH: TEHandle; refCon: LONGINT); }
  92.     TSMTEPostUpdateProcPtr = ProcPtr;  { PROCEDURE TSMTEPostUpdate(textH: TEHandle; fixLen: LONGINT; inputAreaStart: LONGINT; inputAreaEnd: LONGINT; pinStart: LONGINT; pinEnd: LONGINT; refCon: LONGINT); }
  93.     TSMTEPreUpdateUPP = UniversalProcPtr;
  94.     TSMTEPostUpdateUPP = UniversalProcPtr;
  95.  
  96.     TSMTERec = RECORD
  97.         textH:                    TEHandle;
  98.         preUpdateProc:            TSMTEPreUpdateUPP;
  99.         postUpdateProc:            TSMTEPostUpdateUPP;
  100.         updateFlag:                LONGINT;
  101.         refCon:                    LONGINT;
  102.     END;
  103.     TSMTERecPtr = ^TSMTERec;
  104.     TSMTERecHandle = ^TSMTERecPtr;
  105.  
  106.     TSMDialogRecord = RECORD
  107.         fDialog:                DialogRecord;
  108.         fDocID:                    TSMDocumentID;
  109.         fTSMTERecH:                TSMTERecHandle;
  110.         fTSMTERsvd:                ARRAY [0..2] OF LONGINT;                { reserved}
  111.     END;
  112.     TSMDialogPeek = ^TSMDialogRecord;
  113.  
  114.  
  115. CONST
  116.     uppTSMTEPreUpdateProcInfo = $000003C0; { PROCEDURE (4 byte param, 4 byte param); }
  117.     uppTSMTEPostUpdateProcInfo = $000FFFC0; { PROCEDURE (4 byte param, 4 byte param, 4 byte param, 4 byte param, 4 byte param, 4 byte param, 4 byte param); }
  118.  
  119. FUNCTION NewTSMTEPreUpdateProc(userRoutine: TSMTEPreUpdateProcPtr): TSMTEPreUpdateUPP;
  120.     {$IFC NOT GENERATINGCFM }
  121.     INLINE $2E9F;
  122.     {$ENDC}
  123.  
  124. FUNCTION NewTSMTEPostUpdateProc(userRoutine: TSMTEPostUpdateProcPtr): TSMTEPostUpdateUPP;
  125.     {$IFC NOT GENERATINGCFM }
  126.     INLINE $2E9F;
  127.     {$ENDC}
  128.  
  129. PROCEDURE CallTSMTEPreUpdateProc(textH: TEHandle; refCon: LONGINT; userRoutine: TSMTEPreUpdateUPP);
  130.     {$IFC NOT GENERATINGCFM}
  131.     INLINE $205F, $4E90;
  132.     {$ENDC}
  133.  
  134. PROCEDURE CallTSMTEPostUpdateProc(textH: TEHandle; fixLen: LONGINT; inputAreaStart: LONGINT; inputAreaEnd: LONGINT; pinStart: LONGINT; pinEnd: LONGINT; refCon: LONGINT; userRoutine: TSMTEPostUpdateUPP);
  135.     {$IFC NOT GENERATINGCFM}
  136.     INLINE $205F, $4E90;
  137.     {$ENDC}
  138.  
  139. {$ALIGN RESET}
  140. {$POP}
  141.  
  142. {$SETC UsingIncludes := TSMTEIncludes}
  143.  
  144. {$ENDC} {__TSMTE__}
  145.  
  146. {$IFC NOT UsingIncludes}
  147.  END.
  148. {$ENDC}
  149.